(ada-outline-level): Bind buffer-invisibility-spec.

diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el
index 9e6321b63141e2a18687e0d84a500d5b04ec14b8..cac7227969cc07efb8e1d4adb89e4cbcc0dfb088 100644 (file)
--- a/lisp/progmodes/ada-mode.el
+++ b/lisp/progmodes/ada-mode.el
@@ -3822,9 +3822,11 @@ If that is the case remember the name of that function."
 
 ;; used by outline-minor-mode
 (defun ada-outline-level ()
-  (save-excursion
-    (skip-chars-forward "\t ")
-    (current-column)))
+  ;; This so that `current-column' DTRT in otherwise-hidden text.
+  (let (buffer-invisibility-spec)
+    (save-excursion
+      (skip-chars-forward "\t ")
+      (current-column))))
 
 ;;;
 ;;; generate body